home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __adventureland__ / __adventure_helpers__ / gurps__3rd_edition / card_47945.txt < prev    next >
Text File  |  1991-01-08  |  13KB  |  417 lines

  1. -- card: 47945 from stack: in
  2. -- bmap block id: 48345
  3. -- flags: 4000
  4. -- background id: 4234
  5. -- name: Patron
  6. ----- HyperTalk script -----
  7. on openCard
  8.   push recent card
  9.   set the scroll of card field "Patron Field" to 0
  10. end OpenCard
  11.  
  12.  
  13.  
  14.  
  15. -- part 10 (field)
  16. -- low flags: 01
  17. -- high flags: 4007
  18. -- rect: left=15 top=57 right=255 bottom=499
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 200
  23. -- text size: 10
  24. -- style flags: 0
  25. -- line height: 13
  26. -- part name: Patron Field
  27.  
  28.  
  29. -- part 11 (field)
  30. -- low flags: 01
  31. -- high flags: 0000
  32. -- rect: left=198 top=31 right=56 bottom=460
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 2
  37. -- text size: 18
  38. -- style flags: 256
  39. -- line height: 24
  40. -- part name: 
  41.  
  42.  
  43. -- part 14 (button)
  44. -- low flags: 00
  45. -- high flags: 8006
  46. -- rect: left=33 top=256 right=276 bottom=213
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Powerful Ind.  10 points
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   global disadv,disadvp,points,killed
  58.   put "Patron, Pwrfl Ind" into disadv
  59.   put -10 into disadvp
  60.   put Patron into AT
  61.   put ANonexclusive(AT) into result
  62.   if (result is empty) then
  63.     exit MouseUp
  64.   end if
  65.   answer "How many points of special powers?" with "5 Pts." or "10 Pts." or "None"
  66.   if (it="5 Pts.") then
  67.     put disadvp-5 into disadvp
  68.     put disadv&"*" into disadv
  69.   end if
  70.   if (it="10 Pts.") then
  71.     put disadvp-10 into disadvp
  72.     put disadv&"*" into disadv
  73.   end if
  74.   answer "How often involved?" with "RollΓëñ15" or "RollΓëñ12" or "Less"
  75.   put it into T
  76.   if T is "RollΓëñ15" then
  77.     put disadv & ",Γëñ15" into disadv
  78.     put disadvp*3 into disadvp
  79.   end if
  80.   if T is "RollΓëñ12" then
  81.     put disadv &",Γëñ12" into disadv
  82.     put disadvp*2 into disadvp
  83.   end if
  84.   if T="Less" then
  85.     answer "How much less?" with "RollΓëñ9" or "RollΓëñ6"
  86.     if it is "RollΓëñ6" then
  87.       put disadv &",Γëñ6" into disadv
  88.       put round(disadvp/2) into disadvp
  89.     else
  90.       put disadv &",Γëñ9" into disadv
  91.     end if
  92.   end if
  93.   answer "Accept "& disadv &" Cost: "& (-1*disadvp) &"?" with "Accept" or "Reject"
  94.   if it="Accept" then
  95.     put ANextSpace(i) into b
  96.     put disadv into line b of field "Advantages" of card "Work"
  97.     put (0-disadvp) into line b of field "APoints" of card "Work"
  98.     put points-disadvp into points
  99.     put points into field "Points" of card "Work"
  100.   else if it="Reject" then
  101.   end if
  102.   visual effect iris close
  103.   pop card
  104. end mouseUp
  105.  
  106.  
  107.  
  108.  
  109. -- part 17 (button)
  110. -- low flags: 00
  111. -- high flags: 8006
  112. -- rect: left=33 top=275 right=293 bottom=212
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Powerful Org.  15 points
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   global disadv,disadvp,points,killed
  124.   put "Patron, Pwrfl Org" into disadv
  125.   put -15 into disadvp
  126.   put Patron into AT
  127.   put ANonexclusive(AT) into result
  128.   if (result is empty) then
  129.     exit MouseUp
  130.   end if
  131.   answer "How many points of special powers?" with "5 Pts." or "10 Pts." or "None"
  132.   if (it="5 Pts.") then
  133.     put disadvp-5 into disadvp
  134.     put disadv&"*" into disadv
  135.   end if
  136.   if (it="10 Pts.") then
  137.     put disadvp-10 into disadvp
  138.     put disadv&"*" into disadv
  139.   end if
  140.   answer "How often involved?" with "RollΓëñ15" or "RollΓëñ12" or "Less"
  141.   put it into T
  142.   if T is "RollΓëñ15" then
  143.     put disadv & ",Γëñ15" into disadv
  144.     put disadvp*3 into disadvp
  145.   end if
  146.   if T is "RollΓëñ12" then
  147.     put disadv &",Γëñ12" into disadv
  148.     put disadvp*2 into disadvp
  149.   end if
  150.   if T="Less" then
  151.     answer "How much less?" with "RollΓëñ9" or "RollΓëñ6"
  152.     if it is "RollΓëñ6" then
  153.       put disadv &",Γëñ6" into disadv
  154.       put round(disadvp/2) into disadvp
  155.     else
  156.       put disadv &",Γëñ9" into disadv
  157.     end if
  158.   end if
  159.   answer "Accept "& disadv &" Cost: "& (-1*disadvp) &"?" with "Accept" or "Reject"
  160.   if it="Accept" then
  161.     put ANextSpace(i) into b
  162.     put disadv into line b of field "Advantages" of card "Work"
  163.     put (0-disadvp) into line b of field "APoints" of card "Work"
  164.     put points-disadvp into points
  165.     put points into field "Points" of card "Work"
  166.   else if it="Reject" then
  167.   end if
  168.   visual effect iris close
  169.   pop card
  170. end mouseUp
  171.  
  172.  
  173.  
  174.  
  175. -- part 18 (button)
  176. -- low flags: 00
  177. -- high flags: 8006
  178. -- rect: left=33 top=292 right=310 bottom=230
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Very Pwrful Org.  20 points
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   global disadv,disadvp,points,killed
  190.   put "Patron, Vry Pwr Org" into disadv
  191.   put -20 into disadvp
  192.   put Patron into AT
  193.   put ANonexclusive(AT) into result
  194.   if (result is empty) then
  195.     exit MouseUp
  196.   end if
  197.   answer "How many points of special powers?" with "5 Pts." or "10 Pts." or "None"
  198.   if (it="5 Pts.") then
  199.     put disadvp-5 into disadvp
  200.     put disadv&"*" into disadv
  201.   end if
  202.   if (it="10 Pts.") then
  203.     put disadvp-10 into disadvp
  204.     put disadv&"*" into disadv
  205.   end if
  206.   answer "How often involved?" with "RollΓëñ15" or "RollΓëñ12" or "Less"
  207.   put it into T
  208.   if T is "RollΓëñ15" then
  209.     put disadv & "Γëñ15" into disadv
  210.     put disadvp*3 into disadvp
  211.   end if
  212.   if T is "RollΓëñ12" then
  213.     put disadv &"Γëñ12" into disadv
  214.     put disadvp*2 into disadvp
  215.   end if
  216.   if T="Less" then
  217.     answer "How much less?" with "RollΓëñ9" or "RollΓëñ6"
  218.     if it is "RollΓëñ6" then
  219.       put disadv &"Γëñ6" into disadv
  220.       put round(disadvp/2) into disadvp
  221.     else
  222.       put disadv &"Γëñ9" into disadv
  223.     end if
  224.   end if
  225.   answer "Accept "& disadv &" Cost: "& (-1*disadvp) &"?" with "Accept" or "Reject"
  226.   if it="Accept" then
  227.     put ANextSpace(i) into b
  228.     put disadv into line b of field "Advantages" of card "Work"
  229.     put (0-disadvp) into line b of field "APoints" of card "Work"
  230.     put points-disadvp into points
  231.     put points into field "Points" of card "Work"
  232.   else if it="Reject" then
  233.   end if
  234.   visual effect iris close
  235.   pop card
  236. end mouseUp
  237.  
  238.  
  239.  
  240.  
  241. -- part 21 (button)
  242. -- low flags: 00
  243. -- high flags: 8006
  244. -- rect: left=278 top=257 right=275 bottom=497
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: Extrmly Pwrful Org.  25 points
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   global disadv,disadvp,points,killed
  256.   put "Patron, Ext Pwr Org" into disadv
  257.   put -25 into disadvp
  258.   put Patron into AT
  259.   put ANonexclusive(AT) into result
  260.   if (result is empty) then
  261.     exit MouseUp
  262.   end if
  263.   answer "How many points of special powers?" with "5 Pts." or "10 Pts." or "None"
  264.   if (it="5 Pts.") then
  265.     put disadvp-5 into disadvp
  266.     put disadv&"*" into disadv
  267.   end if
  268.   if (it="10 Pts.") then
  269.     put disadvp-10 into disadvp
  270.     put disadv&"*" into disadv
  271.   end if
  272.   answer "How often involved?" with "RollΓëñ15" or "RollΓëñ12" or "Less"
  273.   put it into T
  274.   if T is "RollΓëñ15" then
  275.     put disadv & "Γëñ15" into disadv
  276.     put disadvp*3 into disadvp
  277.   end if
  278.   if T is "RollΓëñ12" then
  279.     put disadv &"Γëñ12" into disadv
  280.     put disadvp*2 into disadvp
  281.   end if
  282.   if T="Less" then
  283.     answer "How much less?" with "RollΓëñ9" or "RollΓëñ6"
  284.     if it is "RollΓëñ6" then
  285.       put disadv &"Γëñ6" into disadv
  286.       put round(disadvp/2) into disadvp
  287.     else
  288.       put disadv &"Γëñ9" into disadv
  289.     end if
  290.   end if
  291.   answer "Accept "& disadv &" Cost: "& (-1*disadvp) &"?" with "Accept" or "Reject"
  292.   if it="Accept" then
  293.     put ANextSpace(i) into b
  294.     put disadv into line b of field "Advantages" of card "Work"
  295.     put (0-disadvp) into line b of field "APoints" of card "Work"
  296.     put points-disadvp into points
  297.     put points into field "Points" of card "Work"
  298.   else if it="Reject" then
  299.   end if
  300.   visual effect iris close
  301.   pop card
  302. end mouseUp
  303.  
  304.  
  305.  
  306.  
  307. -- part 22 (button)
  308. -- low flags: 00
  309. -- high flags: 8006
  310. -- rect: left=278 top=274 right=292 bottom=497
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: Gvrnmnt or MNC,  30 points
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   global disadv,disadvp,points,killed
  322.   put "Patron, Gvnmnt" into disadv
  323.   put -30 into disadvp
  324.   put Patron into AT
  325.   put ANonexclusive(AT) into result
  326.   if (result is empty) then
  327.     exit MouseUp
  328.   end if
  329.   answer "How many points of special powers?" with "5 Pts." or "10 Pts." or "None"
  330.   if (it="5 Pts.") then
  331.     put disadvp-5 into disadvp
  332.     put disadv&"*" into disadv
  333.   end if
  334.   if (it="10 Pts.") then
  335.     put disadvp-10 into disadvp
  336.     put disadv&"*" into disadv
  337.   end if
  338.   answer "How often involved?" with "RollΓëñ15" or "RollΓëñ12" or "Less"
  339.   put it into T
  340.   if T is "RollΓëñ15" then
  341.     put disadv & ",Γëñ15" into disadv
  342.     put disadvp*3 into disadvp
  343.   end if
  344.   if T is "RollΓëñ12" then
  345.     put disadv &",Γëñ12" into disadv
  346.     put disadvp*2 into disadvp
  347.   end if
  348.   if T="Less" then
  349.     answer "How much less?" with "RollΓëñ9" or "RollΓëñ6"
  350.     if it is "RollΓëñ6" then
  351.       put disadv &",Γëñ6" into disadv
  352.       put round(disadvp/2) into disadvp
  353.     else
  354.       put disadv &",Γëñ9" into disadv
  355.     end if
  356.   end if
  357.   answer "Accept "& disadv &" Cost: "& (-1*disadvp) &"?" with "Accept" or "Reject"
  358.   if it="Accept" then
  359.     put ANextSpace(i) into b
  360.     put disadv into line b of field "Advantages" of card "Work"
  361.     put (0-disadvp) into line b of field "APoints" of card "Work"
  362.     put points-disadvp into points
  363.     put points into field "Points" of card "Work"
  364.   else if it="Reject" then
  365.   end if
  366.   visual effect iris close
  367.   pop card
  368. end mouseUp
  369.  
  370.  
  371.  
  372.  
  373. -- part 9 (button)
  374. -- low flags: 00
  375. -- high flags: 8006
  376. -- rect: left=278 top=291 right=309 bottom=350
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 0 / 0
  379. -- text alignment: 1
  380. -- font id: 0
  381. -- text size: 12
  382. -- style flags: 0
  383. -- line height: 16
  384. -- part name: Cancel
  385. ----- HyperTalk script -----
  386. on mouseUp
  387.   visual effect iris close
  388.   go to card "Advantage Card"
  389. end mouseUp
  390.  
  391.  
  392.  
  393. -- part contents for card part 11
  394. ----- text -----
  395.   Patron
  396.  
  397. -- part contents for card part 10
  398. ----- text -----
  399.    A patron is a non-player character, created initially by the player but con-trolled by the GM.  A patron can be a big help, advisor, protector, or emplo-yer.  (You can have a job without having a patron - see Jobs, p. 132.  A patron is more than an ordinary boss.)
  400.    The GM may limit or prohibit Patrons if they would disrupt the flow of the campaign.
  401.  
  402.    The point cost of a Patron is determined (a) by his/her/its power, and (b) by the frequency with which that Patron appears to help you.
  403.    If the Patron is a single powerful individual (created with at least 150 points), and/or has assets of at least $1,000,000:  10 points.  Note that such a person may have servants and employees, but the patron himself is a single person.
  404.    If the Patron is a reasonably powerful organization (assets equivalent to at least $10,000,000):  15 points.  Example:  The Berkeley police department.
  405.    If the Patron is a very powerful organization (assets equivalent to at least $100,000,000):  20 points.  Example:  the ruling council of a city-state.
  406.    If the Patron is an extremely powerful organization (assets equivalent to at least a billion dollars):  25 points.  Example:  a large corporation or a very small nation.
  407.    If the Patron is a national government or giant multinational organization  (net worth basically incalculable):  30 points.
  408.  
  409. Special Qualities of Patron
  410.    Referees may adapt this as they see fit.  For example, if a player's pa-tron is an extra-dimensional creature with demonic powers, or a superhero, or the Governor of New York, the patron should cost 20 to 25 points - be-cause, even though the patron is a single individual, he wields great power.
  411.    Extra-special abilities should add 5 or 10 points - GM's discretion.  Some examples:
  412.    Patron can use magic in a generally non-magical world.  
  413.    Patron has technology much better than the world's norm.
  414.    Patron has unusual reach in time or space.
  415.  
  416. Frequency of Patron's Appearance
  417.    The point cost of a patron is modified by the frequency with which he appears.  To determine whether your patron appears in a given play ses-sion, the GM rolls 3 dice.  If the number rolled is within the range for the patron (see below), then the GM may design the adventure to include an as-signment, or just aid, from the patron.  He may also choose to leave them out.  However, if the GM determined that the patron could have appeared, and if you try to contact them during the adventure (for help, advice, or whatever) then the contact is likely to be successful, and help may be of-fered.  (Be reasonable.  If you're locked in a dungeon without a radio or other means of communication, you're not likely to be contacting anybody.)  You will not know whether your patron is "available" on a given adventure until you try to reach him, and, as a rule, you should only be able to reach your patron for help once per adventure.